unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  Tpomocnicza = class(TForm)
    procedure FormMouseWheelDown(Sender: TObject; Shift: TShiftState;
      MousePos: TPoint; var Handled: Boolean);
    procedure FormMouseWheelUp(Sender: TObject; Shift: TShiftState;
      MousePos: TPoint; var Handled: Boolean);
  private
    { Private declarations }
  public
    procedure OnKey(var MSG: TWMKeydown); message WM_KEYDOWN;
    { Public declarations }
  end;

var
  pomocnicza: Tpomocnicza;

implementation

{$R *.dfm}
uses main;

procedure Tpomocnicza.OnKey(var MSG: TWMKeydown);
begin
  //showmessage('key');
  //showmessage(inttostr(msg.charcode));
  //zapamietujemy charcode, sciagany przez valuestimer z regulatorami
  mainform.OnKey(MSG);
end;

procedure Tpomocnicza.FormMouseWheelDown(Sender: TObject;
  Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
begin
  klipermainform.FormMouseWheeldown(Sender, Shift, MousePos, Handled);
end;

procedure Tpomocnicza.FormMouseWheelUp(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
  klipermainform.FormMouseWheelUp(Sender, Shift, MousePos, Handled);
end;

end.
